проверьте программу в паскале, что не так?

Если не нужно по условию задачи выводить значение у, то и else тоже не нужно в данном случае.
А вот бегин - безусловно пропущено.. .
Вставь бегин и подбери значения вводимых переменных, чтобы икс был больше игрека, для проверки. Но я бы всё-таки вывела ещё и игрек, для себя.
Выглядеть будет эта ветка так:
If x>y then
writeln ('X: ',x:2:2);
Else
writeln ('Y: ',y:2:2);

И вот что ещё: ты не увидишь расчёта, они делаются в другом окне, которое моментально закрывается.
Есть какая-то кнопка в паскале, которая открывает окно, но не помню, какая - смотри описание. Намного проще временно остановить выполнение программы перед закрытием, вписав оператор Readln без параметра перед последним End.
Тогда окно с результатом выполнения программы будет доступно до нажатия любой клавиши, после чего возвращается в исходный текст.
В данном случае Uses CRT, как в варианте уважаемого Петрова, не нужно :-)

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

if x>y then
Где else ?
И где Begin после var ?

Как то так:

uses CRT;
var a,b,x,y:real;
BEGIN
writeln ('Vvedite peremennye');
writeln ('Vvedite a');
readln (a);
writeln ('Vvedite b');
readln (b);
x:=2*b-a;
y:=a*7;
if x>y then
writeln ('x',x) else
writeln ('y',y);
readkey;
end.

Ну и перед тем как задать вопрос, его нужно сформулировать. Например объяснить что программа должна делать...