ДЗ на 16 января. Решить в тетрадь №1 -2 и №2-1, стр 101 . Тем кто не может решить, то надо выучить задачи

  урок

Наберите программу для задачи b=2a+3a, введите значения величины a c клавиатуры

Даны 3 числа а,с и b. Найти их среднее арифметическое sr

//фам 1подсчитать сумму 2 чисел
var a, b, S: real;
begin
writeln('введите число а');
read(a);
writeln('введите число б');
read(b);
S:= a+b;
writeln('a+b=', S);
end.
//фам 2подсчитать сумму 3 чисел
var a, b, c, S: real;
begin
writeln('введите число а');
read(a);
writeln('введите число б');
read(b);
writeln('введите число c');
read(c);
S:= a+b+c;
writeln('a+b+c=', S);
end.