nástřel,t5eba doladit
begin
repeat
write('Zadej heslo');
read(A);
if a='ahoj' then write('spravne')else
write ('Spatne')
until a<>'Ahoj'
end.
poradna.net
Neregistrovaný Přihlásit Registrovat