Народ кто хорошо знает Информатику? Токо чесно решите програму на паскале)…

Сделаю операцию только с целыми числами. Program fff; label 1; var a,y,x,i: integer; Begin Writeln ('введите а'); read (a); For x: =1 to 1000 do if a*x=5 then begin writeln (x); goto 1; end; Writeln ('Корней нет! '); 1: readlnend. Алгоритм такой: проверяем выражение на равенство, если правильно, тогда пишем корень и заканчиваем программу. Если цикл завершился, значит не одно число не совпало и мы пишем «корней нет» .