Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  janek
Language: PASCAL
Code:
program slepice;
uses crt; 
var k,s:integer;
begin
clrscr;
write('Zadaj pocet kralikov':);
read(k);
write('Zadaj pocet sliepok':);
read(s);
n:=e*4+s*2;
h:=k+s;
write('pocet noh',n);
write('pocet hlav',k);
readln;
end.          
Comments: