Дана программа которая ищет сумму однозначных чисел, с командой While исправьте её на программу с командой For
Program dj;
Var x,y:integer;
begin
y:=0;
x:=1;
while x<10 do
begin
y:=x+y;
x:=x+1;
write (y);
end.