var a,b:integer;
function f(a,b:integer):integer;
begin
if (a<>0) and (b<>0) then begin
if (a>b) then
a:=a mod b else
b:=b mod a;
f(a,b);
end else
writeln(abs(a-b));
end;
BEGIN
writeln('Введите 2 натуральных числа');
readln(a,b);
write('НОД(',a,',',b,') = ');
f(a,b);
end.
Материнская плата, платы видео-звука-интернета (сетевые платы), блок питания, опертивная память, DWD-привод, шельфы, кулера, жесткий диск.
2 и 4
4 - только если это не опечатка при создании темы. Есть тип Boolean