Найти сумму, разность, произведение и частное двух ненулевых чисел

readln(a,b);
writeln('addition: ',a+b);
writeln('subtraction: ',a-b);
writeln('multiplication: ',a*b);
writeln('division: ',a/b);

uses crt; 
var a,b,rez:real; 
begin 
clrscr; 
readln(a,b); 
Writeln('Summa - ',a*a+b*b:0:2); 
writeln('Raznost - ',a*a-b*b:0:2); 
writeln('Proizv - ',a*a*b*b:0:2); 
writeln('Chastnoe - ',a*a/(b*b):0:2); 
readkey; 
end.

program xxx;
 
  var a, b, s : real;
 
        r, p, d : real;
 
begin
 
   write ('введите певрое число- ');
 
   readln (a);
 
   write ('введите второе число- ');
 
   readln (b);
 
   s:= a+ b;
 
   r := a - b;
 
   p := a* b;
 
   d := a/b;
 
   writeln ('сумма =', s);
 
   writeln ('разность =', r);
 
   writeln ('произведение =', p);
 
   writeln ('частное = ', d);
 
   readln
 
end.

Program Begin10;
Var
 a,b:Real;
Begin
 ReadLn(a,b);
 WriteLn('Add: ',Sqr(a) + Sqr(b));{Сумма}
 WriteLn('Sub: ',Sqr(a) - Sqr(b));{Разность}
 WriteLn('Mul: ',Sqr(a) * Sqr(b));{Произведение}
 WriteLn('Div: ',Sqr(a) / Sqr(b));{Частное}
 ReadLn;
End.

uses crt;
var
x,y,z:integer;
 begin
clrscr;
writeln('ввод X, Y, Z');
 readln(x,y,z);
 if (x<y)and(y<z)or(x>y)and(y>z) then
  begin
x:=x*2;
 y:=y*2;
 z:=z*2;
 end
else
 begin
 x:=x*(-1);
 y:=y*(-1);
 z:=z*(-1);
  end;
 writeln('Ответ:');
 writeln('X=', x, ' Y=', y, ' Z=', z);
 end.

Program case;
 
Var k:integer;
 
Begin
 
Writeln('введите номер месяца ');
 
Readln(k);
 
Case k of
 
1,2,12:Writeln('зима');
 
3-5:Writeln('весна');
 
6..8:Writeln ('лето');
 
9..11:Writeln('осень');
 
Else Writeln('такого месяца не существует');
 
end;
 
Readln;
 
End.

program cccc;
var
n,i:integer;
c1,c2:char;
a:string;
begin
writeln('vvedite simvoly c1 i c2');
readln(c1);
readln(c2);
writeln('vvedite dlinu stroki');
readln(n);
for i:=1 to n div 2 do
a:=a+c1+c2;
writeln('stroka=',a);
readln;
end.