Что тут не так? program nod;
var a,b: integer;
begin
write ('введите два натуральных числа');
readln(4,2);
while 4< > 2 do
if 4> 2 then a: =4-2
else b: =2-4
writeln('нод=',4);
readln
end.

ksu131287    2   27.01.2020 19:21    0