Program ch; var x1,x2,x3,x4,i:integer; begin writeln('введите 4 числа'); readln(x1,x2,x3,x4); if (x1 < x2) and (x2 < x3) and (x3 < x4) then begin x1:=sqr(x1); writeln('квадрат для x1 = ', x1); x2:=sqr(x2); writeln('квадрат для x2 = ', x2); x3:=sqr(x3); writeln('квадрат для x3 = ', x3); x4:=sqr(x4); writeln('квадрат для x4 = ', x4); end else write('полусумма = ',(x1+x2+x3+x4)/2); end.
var x1,x2,x3,x4,i:integer;
begin
writeln('введите 4 числа');
readln(x1,x2,x3,x4);
if (x1 < x2) and (x2 < x3) and (x3 < x4) then
begin
x1:=sqr(x1);
writeln('квадрат для x1 = ', x1);
x2:=sqr(x2);
writeln('квадрат для x2 = ', x2);
x3:=sqr(x3);
writeln('квадрат для x3 = ', x3);
x4:=sqr(x4);
writeln('квадрат для x4 = ', x4);
end
else write('полусумма = ',(x1+x2+x3+x4)/2);
end.