uses crt;
var
a,b,c,d:longint;
procedure dzwiek(x:longint);
begin
writeln('Wpisz czestotliwosc dzwieku');
read(x);
sound(x);
delay(2000);
end;
function obliczanie:longint;
begin
a:=2;
b:=2;
obliczanie:=a+b;
end;
procedure dzialanie;
begin
Writeln('Ile to jest 2+2');
read(c);;
IF obliczanie=c then
begin
writeln('Brawo wynik jest prawidlowy');
readln;
delay(2000);
end;
end;
begin
clrscr;
writeln('Jakiej aplikacji chcesz uzyc?');
writeln('Wpisz 1 jezeli dzwiek');
writeln('Wpisz 2 jezeli dzialanie');
writeln('Wpisz inna liczbe jezeli chcesz wyjsc');
read(d);
IF d=1 then dzialanie;
IF d=2 then dzwiek(2200);
else halt;
end.
Mam problem z pascalem chcę zrobić program, który korzysta z 2 procedur, ale mam "Error in statement".