, где у меня ошибка в Паскаль? program exam_zadll_algorithm;
var X1, Xl, l: real;
begin
ReadLn(X1, l=1..3);
M:= X1;
for i := 2 to 3 do
begin
if Xl>M then
begin

end
else
begin

end;
end;
M:= Xl;
WriteLn(M);
end.

Сережа8910    2   10.06.2021 10:36    1