Формулы представлены во вложении
Естественный язык, скорее всего
<span>var a,b,s,p:real;
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if a<b then begin a:=s; b:=p end
else begin b:=s; a:=p; end;
writeln('a = ',a:4:2,' b = ',b:4:2);
end<span>.
Пример:
15 27
</span><span>a = 21.00 b = 405.00</span></span>
var
A, B: Integer;
begin
Write('Введите 2 целых числа: ');
Readln(A, B);
Writeln ('Разность большего и меньшего = ' + IntToStr (Abs (A - B)));
end;
Var x,y:integer;
begin
x:=2;
y:=3;
writeln(x,'+',y,'=',x+y);
<span>end.</span>