Лабораторная работа №1. Линейная структура программы. Лабораторные работы на Pascal

Лабораторная работа №1 Линейная структура программы
Лабораторные работы на Pascal
Вариант № 1.
1. Написать программу, которая вводит два вещественных числа, вычисляет и печатает коэффициенты приведенного квадратного уравнения, корнями которого являются числа.
2. Найти произведение цифр заданного четырехзначного числа.
----------------------------------------------------------------------------------------------------------------
3. Что будет напечатано программой:
Program korni;
Var b,c,d: real;
Begin read (b,c);
D:=sqrt(sqr(b)-4*c);
Writeln(‘x1=’,(-b+d)/2, ‘x2=’,(-b-d)/2)
End.