1.Напишите на языке Паскаль программу, которая для произвольного четырёхзначного числа

1-я задачка:

var a, x:integer;

   s, p:integer;

begin

 writeln('Введите число');

 readln(a);

 x:=a;

 s:=0;

 p:=1;

 while ( xlt;gt;0 ) do  

   begin

     s := s + (x mod 10);

     p := p * (x mod 10);

     x := x div 10;

   end;

writeln('Сумма цифр: ', s);

writeln('Творение цифр:', p);

end.

2-я задачка:

var d, b, p, c:real;

begin

 //Расстояние до дачи

 d := 120;

 //Потребление бензина

 b := 8;

 //Стоимость 1-го литра

 p := 1.45;

 //Расстояние туда и назад

 d := d*2;

 //Цена поездки

 c := ( (b*d)/100 ) * p;

 writeln('Цена поездки: ', c, ' рублей');

end.