Дата рождения: 22 Января 1993 (19 Водолей)

var
a1, a2, max: integer;

begin
write ('Введите два числа: ');
readln (a1, a2);

if a1 >= a2 then
max := a1
else
max := a2;

writeln ('Максимальное из них: ', max);

readln
end.

var a,b,c,d,x1,x2:real;  
begin  
write ('Введите три числа: ');  
readln(a);readln(b);readln(c);  
d:=b*b-4*a*c;  
if d>=0 then begin  
x1:=(-b + sqrt(d))/(2*a);  
x2:=(-b - sqrt(d))/(2*a);   
end;  
writeln ('D= ',d);  
writeln ('x1= ',x1);  
writeln ('x2= ',x2);  
readln;  
end.

Program pr;  
Var  
a,b,s,p,d:real ;  
Begin
  writeln (‘Введите первую сторону’);
  readln (a);
  writeln (‘Введите вторую сторону’);
  readln (b);
  p:=(a+b)*2;
  s:=a*b;
  d:=sqrt((a*a)+(b*b));
writeln (‘Площадь=’,s:0:0);
writeln (‘Периметр=’,s:0:0);
  writeln (‘Диагональ ’,s:0:2);
  end.