напишите программу, которая из двух введённых натуральных чисел будет выводить наименьшее

Question

Ник · Accepted Answer

program sravnenie; 
uses crt; 
var a,b:real; 
begin 
writeln('введите два числа'); 
readln(a,b); 
if a>b then writeln('наибольшее',a); 
if b>a then writeln('наибольшее',b); 
if a=b then writeln(a,'=',b); 
end.

Паша · Answer

program qwe; 
var a, b:integer; 
begin 
writeln('Введите первое число'); 
readln(a); 
writeln('Введите второе число'); 
readln(b); 
if a>b then begin 
writeln('Наименьшее число ', b); 
end 
else writeln('Наименьшее число ', a); 
end.

Umeedy · Answer

Ну это же просто, а в какой среде писать то?