Паскаль!Надо исправить ошибки,чтоб программа начала работать дам. program p2;
var x,y:integer;
begin
writeln ('Сколько кругов хочешь пробежать?');
readln (x);
repeat
writeln ('Сколько уже пробежал?');
readln (y);
if x>y then writeln ('Еще надо бегать');
until y>x then writeln ('Молодец,выполнил свою цель,можешь быть свободен');
readln;
end.

nicekuzia01    2   01.03.2021 15:47    0