Часть 2 номер 202, ГДЗ по информатике за 8 класс к рабочей тетради Босовой Просвещение базовый уровень

Номер 202. Напишите программу, которая вычисляет:
а) дискриминант квадратного уравнения:
б) площадь кольца, если его толщина t см, а диаметр внутреннего круга — d см:

а) program disc;
var a,b,c,d: integer;
begin
write(‘введи a, b, c >’);
readln(a,b,c);
d:=sqr(b) - 4*a*c;
writeln(‘d=’, d);
end.

б) program col;
var t, d: integer;
s: real;
begin
write(‘введи t,d >’);
readln(t,d);
s:=3.14*(sqr(d/2+t)-sqr(d/2));
writeln(‘s=’,s);
end.