Примеры алгоритмов из повседневной жизни: перехода через проезжую часть дороги

1. подойти к пешеходному переходу 2.посмотреть влево 4. убедиться, что транспорт не движется или отсутствует 5. дойти до середины дороги, по пешеходному переходу 6. посмотреть вправо 7. убедиться, что транспорт не движется или отсутствует 8. перейти на другую сторону дороги

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

 

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.