mám zatiaľ toto spravené, ale stále mi to nejde spustiť. Neviete kde mám chybu?
uses crt;
var a:integer;
begin
writeln('zadaj cislo 1-3');
readln(a);
if a=1 then circle(10:20:30);
if a=2 then rectangle(10,20,30);
if a=3 then line(10,20,30);
delay(10000);
end.
poradna.net
Neregistrovaný Přihlásit Registrovat