АВ
Алла Вермишян
Да че ж ленивые такие, ну проще задачи нет.
Я паскаль никогда не учил, но вроде так, если че исправь
Program P1;
uses crt;
var a,b:integer;
begin
clrscr;
write('Vvedit ves1: '); read(a); readln;
write('Vvedit ves2: '); read(b); readln;
if (a < b) then
begin
write('2 meIIIok bolIIe');
end
else
begin
write('1 meIIIok bolIIe');
end
end;