var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
Задание несколько расплывчатое, но скорее всего, подойдет такое решение:
var r,d,p: real;
begin
writeln('введите радиус');
readln(r);
d:= 2*pi*r;
p:=pi*r*r;
writeln('площадь = ',p);
writeln('длина окружности = ',d)
end.
Var a,b,c:real;
begin
read(a, b, c);
writeln(max(a,max(b,c)));
end.
или
var a,b,c:real;
begin
read(a, b, c<span>);
</span>if (a>=b) and (a>=c) then write(a)
else if (b>=a) and(b>=c) then write(b) else write(c);
end.
//короткая история о том, как я забыл sqr() в С++
<span>bool f(int x, int y, int z){
if(pow(double(x),2)+pow(double(y),2)==pow(double(z),2)){
return true;
}
else
{
return false;
}
<span> }</span></span>