Цитата Сообщение от Bolt Посмотреть сообщение
В общем, пробуйте, если что-то не работает - пишите, буду думать.
Цитата Сообщение от Bolt Посмотреть сообщение
Есть что ешё сказать конкретно по этой версии? Или "не смотрел, но осуждаю"? Тогда давай прекратим этот диалог.
шаблон затрещал, но лопнул. пока что компилятор подавился на:

Код:
{$define target_z80}
var
	a,b:word;


function euclid(a,b:word):word;

begin
	if a=b then
	euclid:=a
	else
		if a>b then
		euclid:=euclid(a-b,b)
		else
		euclid:=euclid(b-a,a)
end;

begin
	a:=24;
	b:=16;
	euclid(a,b);
end.