Дана программа на языке Паскаль: program a4; var x, k1, k2: integer; begin k1:=0 k2:=0 writeln (' Введите тричисла');
у тебя программа неправильная. Не до конца понял, почему у тебя с какого-то бока стоит там какой-то intil x=0, если у тебя цикл, то должен был быть repeat сначала, потом уже Until. проверь программу, паскаль ответ тебе не выдаст. а блок-схема вот.
