//Задание №1
//Сумма и произведение двух чисел
var
  a,b: integer;
begin
  readln(a,b);
  writeln('Сумма = ',a+b,' Произведение = ',a*b); по сторонам
end.

//Задание №2
//Площадь и периметр прямоугольника
var
  a,b: integer;
begin
  readln(a,b);
  writeln('Площадь = ',a*b,' Периметр = ',(a+b)*2);
end.


// Задание №3
var
 a,b,c,d: integer;

begin
  write('введите  a,b,c,d ');
  readln(a,b,c,d);
  writeln(a,'/',b,'+',d,'/',c,'=',a/b+d/c:0:2);
end.

Тестовое решение:
введите  a,b,c,d 2 3 4 5
2/3+5/4=1.92

// Задание №4
var
 r: real;

begin
  write('введите радиус ');
  readln(r);
  writeln('Длина окружности радиуса ',r,' = ',2*pi*r:0:2);
  writeln('Площадь круга радиуса ',r,' = ',pi*r*r:0:2);
end.

Тестовое решение:
введите радиус 5
Длина окружности радиуса 5 = 31.42
Площадь круга радиуса 5 = 78.54

// Задание №5
// Сумма цифр трехзначного числа

var
  a,s: integer;
begin
  readln(a);
  while a0 do begin
    s:=s+ a mod 10;
    a:=a div 10;
  end;
  writeln('Сумма цифр',s)
end.