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

program P1;
var
a,b: real; // координаты точек
r: real; // расстояние между точками на прямой
begin
write('Введите координату точки a: ');
readln(a);
write('Введите координату точки b: ');
readln(b);
r := abs(a-b);
writeln('Расстояние между точками = ',r);
end.

program - раздел имени программы;
P1 - имя пролграммы;
var - раздел описания переменных;
a,b, r – переменные;
real - базовый тип;
begin - раздел операторов;
write('Введите координату точки a: ') - (оператор вывода) список вывода данных на экран;
readln(a) - (оператор ввода) список ввода данных с клавиатуры;
write('Введите координату точки b: ') - (оператор вывода) список вывода данных на экран;
readln(b) - (оператор ввода) список ввода данных с клавиатуры;
r := abs(a-b) - оператор присваивания;
writeln('Расстояние между точками = ',r) - (оператор вывода) список вывода данных на экран;
end - конец программы.