Выдает ошибку - Pascal ABC (12528)

Формулировка задачи:

Ребят не подскажете в чем накосячил

uses crt;
var a, b, y,r:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
r:=(a+b) mod 2;
if ((r=0) or (a=0)) then begin  y:=(sqr(a*b)*(a*b)); end else 
if ((r<>0) and (a<>0)) then begin  y:=(sqr(a*b)/2); end;
writeln('Ответ: ',y);
end.

Решение задачи: «Выдает ошибку»

textual
                            Листинг программы 
                        

                            var a, b, r:integer;
    y:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
r:=(a+b) mod 2;
if ((r=0) or (a=0)) then
y:=sqr(a*b)*(a*b)
else if ((r<>0) and (a<>0)) then y:=sqr(a*b)/2;
writeln('Ответ: ',y:0:2);
end.
                        