Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.
-------------------------
Это если консольное. Если графическое приложение - тогда приношу свои извинения.
Https://support.microsoft.com/ru-ru/help/17073/windows-using-keyboard
1 Ученик источник доска информационный канал 2 Боря источник газета инф. канал 3 радио источник Оля приемник 4гена источник мама приемник информационный канал телефон ВРОДЕ ТАК
1.
var x,y:real;
begin
write('x = '); readln(x);
if x>=5
then begin y:=x*x+5; writeln('y = ',y); end
else if x<2 then begin y:=0; writeln('y = ',y); end
else writeln('Функция не определена');
end.
Пример:
x = 6
y = 41
2.
var x,y:real;
begin
write('x = '); readln(x);
if x<2
then begin y:=3/(x*x*x)-2/(x*x); writeln('y = ',y); end
else if x<=5 then begin y:=3*x*x-2*x*x; writeln('y = ',y); end
else writeln('Функция не определена');
end.
Пример:
x = 3
y = 9
Паскаль АВС
Program Sanmy;
uses crt;
var
a,b,c,d:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
if b>a then a:=b;
if c>a then a:=c;
if d>a then a:=d;
writeln ('Максимальный элемент = ',a);
end.