Что тут не так? 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.

Объяснение:

Если нужно найти наибольший общий делитель, то так:

program Nod;

var a,b:integer;

begin

Write ('введите два натуральных числа');

Readln(a,b);

While a<>b do

begin

If a>b then a:=a-b;

else b:=b-a;

end;

Writeln('НОД=',a);

end.