МАЛЕНЬКИЕ Задачки!!! ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ (ЧЕРЕЗ ПАСКАЛЬ ) . Все 5

1)var a,b:real;

begin

Write('a=');

readln(a);

write('b=');

readln(b);

writeln('p=',2*(a+b));

writeln('s=',(a*b));

writeln('d=',sqrt(a*a+b*b));

end.

2) не смог найти

3)

var

   s: real;

begin

   write('Введите сумму покупки: ');

   readln(s);

   if s gt; 1000 then

       s := s * (1 - 0.05)

   else if s gt; 500 then

       s := s * (1 - 0.03);

   writeln('Сумма покупки с учетом скидки: ', s);

end.

4)

Тоже не нашёл сори

5)

var x,y,z :integer;

begin

writeln('Напишите два числа');

readln(x,y);

z:=(x+y)/2;

writeln('Среднее арифметическое этих чисел одинаково', z);

end;

end.