Witam uczę się pisać w Pascalu i mam problem , nie chce mi się skompilować ten programik dlaczego ?
program procedury;
uses crt;
procedure imie;
begin
if x=1 then writeln('Twoja nazwa to ', wprowadz);
if x>1 then ('Chcesz wyjsc ?');
if<1 then writeln('Przykro mi ale nie wybrales 1');
end;
var
wprowadz:string;
x:byte;
begin
write('podaj mi twoja nazwe a ja ja zapamietam ' );
readln(wprowadz);
clrscr;
writeln('A teraz sprawdz czy zapamietalem twoja nazwe nacisnij 1 a ci ja podam ');
readln(x);
imie;
end.
Chodzi w nim o to że używam funkcji procedure - wpisuje imię a program je zapamięta i poda po wciśnięciu klawisza 1. – Dodane 10.10.2009 (So) 18:04 – Dobra poradziłem sobie już temat można zamknąć kod ma wyglądać następująco : kilka poprawek głównie zachowanie kolejności :
program procedury;
uses crt;
var wprowadz:string;
x:byte;
procedure imie;
begin
if (x=1) then writeln('Twoja nazwa to ', wprowadz);
if (x>1) then writeln('Chcesz wyjsc ?');
if (x<1) then writeln('Przykro mi ale nie wybrales 1');
end;
begin
write('podaj mi twoja nazwe a ja ja zapamietam ' );
readln(wprowadz);
clrscr;
writeln('A teraz sprawdz czy zapamietalem twoja nazwe nacisnij 1 a ci ja podam ');
readln(x);
imie;
end.