1. складіть програму обчислення добутку двох чисел. 2. складіть програму обчислення периметра квадрата. 3. складіть програму обчислення площі поверхні куба (s=6*a*a). 4. складіть програму обчислення периметра прямокутника (p=(a+b)*2)

ралушвгврвргугуоуркрвгугункркркрагаш

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

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.