Question

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

Answer 1

PascalABC.Net

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

Answer 2

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 a>b then write(a) else if (a<b) then write(b);
end.

3) вариант на c++
#include <iostream>
using namespace std;
int main ()
{
double a,b;
cin>>a;
cin>>b;
if(a>b) cout<<a<<endl; else if (a<b) cout<<b<<endl;
return 0;
}