Написать на языке паскаль программу которая вычисляет дискриминант, сравнивает его с

program zz1;

var a, b, c, d:integer; //задаем переменные целого типа

begin

write( введите первое число );  // вводим с клавиатуры первое число

read(a);  

write( введите второе число );  // вводим с клавиатуры 2-ое число

read(b);

write( введите третье число );  // вводим с клавиатуры третье число

read(c);

d:=sqr(b) - 4 * a * c; // вычисляем дискриминант по знаменитой формуле

if d gt; 10  // проверяем условие, если найденный дискриминант больше 10, то

then writeln( дискриминант = , d) // выводим один ответ

else  write( В-1 ); // по другому, выводим другой ответ

end.