Решение задания 178: Написание программ на языке Паскаль (Информатика 8 класс, Босова)

Задание 178. Напишите программу, которая вычисляет:

а) дискриминант квадратного уравнения:
program disc;
var a, b, c, d: real;
begin
writeln ('a = ');
read (a);
writeln ('b = ');
read (b);
writeln ('c = ');
read (c);
d:=b*b-4*a*c;
writeln ('D = ', d);
end.

б) площадь кольца, если его толщина t см, а диаметр внутреннего круга - d см: 
program disc;
var d, t, s: real;
begin
writeln ('d = ');
read (d);
writeln ('t = ');
read (t);
s:=3.14*sqr(d/2+t)-3.14*sqr(d/2);
writeln ('S = ', s);
end.