Kód: Vybrat vše
program automat;
var odpoved:string;
kredit,kelimky:integer;
begin
repeat
begin
writeln('v automatu jsou tyto nápoje. caj,sprite,kakao ktery byste si pral?');
readln(odpoved);
kelimky:= 10
case odpoved of
'caj';
begin
writeln('zaplate 10 kreditu');
readln(kredit);
if (kredit:= < 10) then
begin
writeln('musite zaplatit 10 kreditu');
readln;
end
else
begin
writeln('caj je hotovy dobrou chut');
kelimky:= kelimky-1;
readln;
end;
end;
'sprite';
begin
writeln('zaplate 5 kreditu');
readln(kredit);
if (kredit:= < 5) then
begin
writeln('musite zaplatit 5 kreditu');
readln;
end
else
begin
writeln('zde mate vychlazeny sprite');
kelimky:= kelimky-1;
readln;
end;
end;
'kakao';
begin
writeln('zaplate 5 kreditu');
readln(kredit);
if (kredit:= < 5) then
begin
writeln('musite zaplatit 5 kreditu');
readln;
end
else
begin
writeln('kakao je hotove dobrou chut');
kelimky:= kelimky-1;
readln;
end;
end;
until(kelimky:= 0);
writeln('je mi lito dosli kelimky');
readln;
end. 
. jinak jsem si všiml v 1 ukolu 1 chyby case nemuže pracovat s texty ale se znaky :( a předělávat se mi to nechce :). kdyžtak to předělám zítra :) . Jestli chceš, tak ti dám malou nápovědu 