Witam jestem nowy na forum . Uczę się programowania w technikum i mam mały problem z tworzeniem kalkulatora w Pascalu chodzi o to ze wyskakuje mi błąd "There were 1 errors compiling module , stopping" i nie wiem co zrobic
program kalkulator;
uses CRT;
var
a:real;
b:real;
i:real;
w:real;
x:real;
k :Char;
begin
clrscr;
writeLn('Wprowadz dwie liczby');
read(a,b);
WriteLn('wprowadz znak dziaania');
WriteLn('dla znaku + wcisnij 1');
WriteLn('dla znaku - wcisnij 2');
WriteLn('dla znaku / wcisnij 3');
WriteLn('dla znaku * wcisnij 4');
WriteLn('dla znaku ^ wcisnij 5');
read(x);
If (x=1) then
Begin
w:=a+b;
write('Wynik wynosi',w);
Write(w:0:5);
k:=ReadKey;
end
else
if (x=2) then
begin
w:=a-b;
write('wynik wynosi: ');
write(w:0:5);
k:=ReadKey;
end
Else
if (x=3) then
begin
w:=a/b;
write('wynik wynosi: ');
Write(w:0:5);
k:=ReadKey;
end
else
if (x=4) then
begin
w:=a*b;
Write('wynik wynosi: ');
write(w:0:5);
k:=ReadKey;
end
Else
if (x=5) then
begin
w:=1;
For i:=1 to b do w:=w*x;
Write('Wynik wynosi: ');
write(w:0:5);
end;
end.