Модуль 3. Задание 6

Программа на Pascal,вычисляющая вещественные корни произвольного квадратного уравнения.
program Equation;
var a,b,c,d,x1,x2:real;
begin
 writeln;
 writeln ('Введите коэффициенты a,b,c:');
 read (a,b,c);
 d:=sqr(b)-4*a*c;
 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 writeln ('Корни уравнения');
 writeln (x1:10:2,x2:10:2);
 readln; readln;
end.

program Equation - имя программы
var - раздел описания переменных
a,b,c,d,x1,x2 - переменные
real - тип переменных. В ЯП Pascal это действительный тип.
begin - начало программы
writeln - оператор вывода данных на экран
('Введите коэффициенты a,b,c:'); - пояснение для облегчения работы с программой.
 read (a,b,c) - оператор ввода данных с клавиатуры. В скобках список ввода.
 d:=sqr(b)-4*a*c; x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); - присвоение к переменным.
writeln ('Корни уравнения'); writeln (x1:10:2,x2:10:2); - операторы выводыданных на экран
 readln; readln; - оператор ввода
end - конец программы.