Mi a hiba itt? (Programozás)

Program gyakorlas;

uses crt;

VAR

a: integer;

b: integer;

c: integer;

d: integer;

meddig: integer;

BEGIN

Clrscr;

Write(\\\'Mondj egy számot:\\\');

Readln(a);

Write(\\\'Mondj még egy számot:\\\');

Readln(b);

Write(\\\'És még egy számot:\\\');

Readln(c);

d:=(a+b)*c;

Writeln(\\\'A beírt számok eredménye (a+b)*c alapján:\\\',d);

ReadKey;

if (d>50) then

Writeln(\\\'Ez a szám nagyobb vagy egyenlő 50-nel.\\\')

else

Writeln(\\\'Ez a szám kisebb vagy egyenlő 50-nel.\\\');

ReadKey;

Write(\\\'Hányszor szeretnéd látni a d számot:\\\');

Readln(meddig);

for i:=1 to meddig do

BEGIN

Writeln(\\\'D értéke:\\\',d);

End;

ReadKey;

END.