помогите с заданием..........................................

1) современный вариант на PascalABC.NET
//PascalABC.NET, Версия 3.3, сборка 1611
begin
write(max(ReadReal(),ReadReal()));
end.

2) не очень современный вариант на Turbo/Free Pascal
Program n1;
var a,b: real;
begin
readln(a,b);
if agt;b then write(a) else if (alt;b) then write(b);
end.

3) вариант на c++
include lt;iostreamgt;
using namespace std;
int main ()

double a,b;
cingt;gt;a;
cingt;gt;b;
if(agt;b) coutlt;lt;alt;lt;endl; else if (alt;b) coutlt;lt;blt;lt;endl;
return 0;

PascalABC.Net

var a,b:integer;
begin
write('Введите 1-ое число: ');
readln(a);
write('Введите 2-ое число: ');
readln(b);
if agt;b then
writeln('Наибольшее ', a)
else
writeln('Наивеличайшее ', b);
end.