Помогите дайте ответы если есть из самого Сора

Question

Помогите дайте ответы если есть из самого Сора

---

Answer 1

1) var  a,b,c,d:real;beginwriteln('Введите температуру в месяце Июнь: ');readln(a);writeln('Введите температуру в месяце Июль: ');readln(b);writeln('Введите температуру в месяце Август: ');readln(c);d:=(a+b+c)/3;writeln('Средняя температура за летний период: ',d)end.

2) var  a,b,c,p:integer;beginwriteln('Введите сторону a: ');readln(a);writeln('Введите сторону b: ');readln(b);writeln('Введите сторону c: ');readln(c);p:=a+b+c;writeln('Периметр треугольника = ',p);end.

Comments

1)var
a,b,c,d:real;
begin
writeln('Введите температуру в месяце Июнь: ');
readln(a);
writeln('Введите температуру в месяце Июль: ');
readln(b);
writeln('Введите температуру в месяце Август: ');
readln(c);
d:=(a+b+c)/3;
writeln('Средняя температура за летний период: ',d)
end.

---

2)var
a,b,c,p:integer;
begin
writeln('Введите сторону a: ');
readln(a);
writeln('Введите сторону b: ');
readln(b);
writeln('Введите сторону c: ');
readln(c);
p:=a+b+c;
writeln('Периметр треугольника = ',p);
end.