1.Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры.
2.Напишите функцию, которая находит наибольший общий делитель для двух заданных чисел.

можете проверить..

и прошу чтобы зделали информатику потому что я пишу сочинение на 400 слов

не некогда проверять

...

Сейчас добавлю скриншоты работы

1)var n,i:integer;beginRead(n);for i:=1 to n do write(i,' '); end.2) Функция: function nod(a, b: Integer): Integer;Var t: Integer;Begin    If b > a Then    Begin        t := a;        a := b;        b := t;    End;    t := a;    While t > 0 Do    Begin        Result := t;        t := t- b;    End;End;