Информатикаааа
Помогите
Задание 1
Написать программу
Даны 4 числа, найти сумму и произведение этих чисел
Задание 2
Тоже написать программу
Найти Площадь круга
PR(в квадрате) = 3.14

Спасибооо :3

s:= p * r * r;

надо исправить

но с pi тоже должно работать

program odin;var a,b,c,d:integer; x,y:integer;begin readln(a,b,c,d); x:=a+b+c+d; y:=a*b*c*d; writeln('сумма чисел = ', x); writeln('произведение чисел = ', y);end.// ------------------------------------------program dva;const p=3.14;var r:integer; s:real;begin writeln('Введите радиус '); readln(r); s:= pi * r * r; writeln('Площадь круга = ', s);end.