Program project; //объявляем название программы Var //объявляем переменные a: integer; //integer - целое число Begin //начинаем собственно программу >>a:=1; //первое число будет состоять из единиц >>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10 >>Begin //начало цикла >>>>Writeln (a, a, a); //записываем "а" трижды >>>>a:=a+1; //прибавляем к "а" единицу >>End; //конец цикла End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>>a:=1; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются