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