Ввод данных с клавиатуры. (Урок 11-12)

Program Operation;
uses crt;
var
A, B, C: real;
Begin
clrscr;
A:=17.3;
B:=3.4;
C:=5.1;
C:=A*B*C; Writeln (‘объем= ' , C)
End.
Вспомним задачу для нахождения объема параллелепипеда. Исходные данные задаются оператором присваивания, что не всегда удобно

Ввод данных с клавиатуры
Ввод данных с клавиатуры удобен тем, что в программу при каждом запуске можно вводить разные начальные значения переменных.
Program Input;
Uses Crt;
var
N: integer;
begin
ClsScr;
write(‘ВВЕДИТЕ ЧИСЛО С КЛАВИАТУРЫ:’);
readln(N); {Здесь программа приостановится и будет ожидать ввода с клавиатуры. Наберите число и нажмите Enter}
end.

Program Operation;
uses crt;
var
A, B, C: real;
Begin
clrscr;
Writeln (‘введи значение A = ');
read(A);
Writeln (' введи значение B = ');
read(B);
Writeln (' введи значение C = ');
read(C);
C:=A*B*C; Writeln ('îáúåì = ' , C)
End.

Задание
Переделать программы с предыдущих уроков, используя ввод данных с клавиатуры:
Ввести длины рёбер a, b, c прямоугольного параллелепипеда. Найти его объём V=abc и площадь поверхности S=2(ab+bc+ac).
Найти расстояние между точками с заданными координатами х1 и х2 на числовой оси: |x2-x1|. Координаты ввести с клавиатуры.
Ввести площадь круга с клавиатуры. Найти его диаметр D и длину окружности L, ограничивающей этот круг, учитывая, что
L= π2R; S= πR2
Использовать π=3.14
Напишите программу для вычисления дискриминанта квадратного уравнения. Коэффициенты A, B, C ввести с клавиатуры:
D=B2-4*A*C
Найти значение выражения: