Язык программирования Паскаль

Для начала, перед типом данных enter не нажимают, во-вторых, необязательно городить столько переменных, ну а в-третьих - смотря, что именно не помните.

Ибо раздел описАния переменных есть, открывающаяся операторная скобка есть. Если чисто дописывать, то смотря, что именно нужно вывести, согласно заданию, т.к. в апострофы (одинарные кавычки) заключается текст, который нужно вывести на экран. Да, ещё у Вас вместо x1 в скобках необъявленный x10.

Так что дописАть Вам надо то, что надо в задании, например "r1 меньше". Т.е. последняя Ваша строка в программе будет выглядеть так:

 write ('r1 меньше'); 

Либо, если нужно ещё описАть другой случай а-ля "иначе...", то "иначе" пишется как else. Перед else точка с запятой не ставится. Т.е. тогда строка будет выглядеть так:

 write ('r1 меньше')

else write ('r2 меньше'); 

Ну и затем, если только это надо было, просто в конце пишете "end".

Хотя по-хорошему я бы написАл так программу (ибо начало хорошее у Вас):

 Program P1; 

uses crt; 

var x1, x2, y1, y2: real; 

begin 

clrscr; 

writeln ('Введите координаты точек на прямой (только числа (по 1)). После ввода каждой из координат нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите координату по оси x 1-ой точки: '); 

readln (x1); 

write ('Введите координату по оси y 1-ой точки: '); 

readln (y1); 

write ('Введите координату по оси x 2-ой точки: '); 

readln (x2); 

write ('Введите координату по оси y 2-ой точки: '); 

readln (y2); 

if sqrt (sqr (x1)+sqr (y1))sqrt (sqr (x2)+sqr (y2)) then writeln ('r1 > r2') else writeln ('r1 = r2'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Уже несколько ошибок. Стоит ли писать дальше?

Задание требуется угадать?