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 > 1000 then
s := s * (1 - 0.05)
else if s > 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.