Fix Pascal code?

Question

Programming

Var 
    x,y,a,b,c,d:   real;
Begin
    writeln('Здравствуйте, вас приветствует калькулятор К-В. Можно использовать целые числа и десятичные дроби. Когда вы закончите работу, то просто закройте программу');
    While true Do
    Begin
        writeln('Чтобы вычислить корень или квадрат числа сначала введите число, потом нажмите 0');
        writeln('Введите первую часть выражения: первое слагаемое, уменьшаемое, первый множитель или числитель');
        readln(x);
        writeln('Введите вторую часть выражения: второе слагаемое, вычитаемое, второй множитель  или заменатель');
        readln(y);
        If y=0 Then
            a := SQR(x);
        b := SQRT(x);
        writeln('Квадрат числа ',a);
        writeln('Корень числа ',b);
        Else
            a := x+y;
        b := x-y;
        c := x*y;
        d := x/y;
        writeln('Сумма ',a);
        writeln('Вычитание ',b);
        writeln('Умножение ',c);
        writeln('Деление ',d);
        writeln('Спасибо за использование калькулятора К-В');
    End;
End.

problem with the IF statement, as you know, ';' is not put before ELSE since this ends the loop, please help fix the code to make it work. I'm making a calculator, an IF statement to separate the roots and the square from the rest of the calculations.

Answer 1

VAR
x,y,a,b,c,d:real;
begin
writeln('Здравствуйте, вас приветствует калькулятор К-В. Можно использовать целые числа и десятичные дроби. Когда вы закончите работу, то просто закройте программу');
while true do
begin
writeln('Чтобы вычислить корень или квадрат числа сначала введите число, потом нажмите 0');
writeln('Введите первую часть выражения: первое слагаемое, уменьшаемое, первый множитель или числитель');
readln(x);
writeln('Введите вторую часть выражения: второе слагаемое, вычитаемое, второй множитель или заменатель');
readln(y);
if y=0 then
begin
a:=SQR(x);
b:=SQRT(x);
writeln('Квадрат числа ',a);
writeln('Корень числа ',b);
end
else
begin
a:=x+y;
b:=x-y;
c:=x*y;
d:=x/y;

writeln('Сумма ',a);
writeln('Вычитание ',b);
writeln('Умножение ',c);
writeln('Деление ',d);
end;
writeln('Спасибо за использование калькулятора К-В');
end;
end.