Команда обращения к процедуре:
Делай /имя процедуры/
К электросети
К локальной сети
К интернет
К монитору
К станку
К машине
и т.п.
<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>
На 1 монитор на 2 сканер.