Ребята!!! Кто шарит сделайте Зачет цикл WHILE Вариант №3
1.Напечатать минимальное число, больше 300, которое нацело делится на 19
2.Дано натуральное число. Определить произведение его цифр
3.Даны натуральные числа a и b. Найти НОД(a, b)
4.Дано натуральное число. Получить число, получаемое при прочтении его цифр справа налево
5.Дано натуральное число. Определить наименьшую цифру в нем

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

письменность была нужна для оформления сделок, фиксации движения товаров, выручки, учета,  финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплаватели.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.