7.1. Циел For ДО

Посмотрите:
Видео

Видео 3 ин



Задания
Задание 1
Перепишите в тетрадь вид цикла из первого видео

Задание 2
Скопируйте программу:

uses crt;

var

  i, n, s: integer;

begin

    s := 0;

  for i := 1 to 5 do

    s := s + i;

  writeln('Сумма чисел = ', s);

end.

Запустите ее в программе Pascak ABC (приложено к письму)

Это программа вычисляет сумму цифр от 1 до 5

Задание 3

Внесите изменения в программу:

uses crt;

var

  i, n, s: integer;

begin

  write('Введите N: ');

  readln(n);

  s := 0;

  for i := 1 to n do

    s := s + i;

  writeln('Сумма чисел = ', s);

end.
Определите, что она делает, пришлите мне на почту скриншот роботы программы и описание ее работы
Сохраните программу на своем компьютере!!