Задача 1
var a:string;
begin
writeln ('Введи своё имя');
readln (a);
writeln ('Привет, программист ', a,'.');
end.

2. Конструкция программы
program Proizvedenie ; { объявление имени программы }
var
A, B, Proizved : integer ; { описание переменных}
begin { начало программы}
write( ‘ Введите значение целого числа А= ’ ) ; { Вывод текста на экран}
readln (A); { Ввод значения переменной А с клавиатуры}
write (‘ Введите значение целого числа В=‘);
readln ( B );
Proizved := A*B; { Вычисление переменной Proizved}
Write ( ‘ Произведение чисел‘, А, ‘и‘ , В, ‘равно ‘ ,Proizved); { Вывод ответа}
end. { Конец программы}

Задача 1
var x1,y1,x2,y2,z1,z2:real;
begin
writeln ('Введите 2 координаты:');
readln (x1,y1,x2,y2);
z1:=x2-x1;
z2:=y2-y1;
writeln ('Расстояние между введёнными координатами - (',z1,';',z2,')');
end.