Написать на языке паскаль программу которая вычисляет дискриминант, сравнивает его с числом 10, если больше 10, то выводит дискриминант на экран, иначе выводид В-1

program zz1;

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

begin

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

read (a);

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

read (b);

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

read (c);

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

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

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

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

end.