Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  test777
Language: PASCAL
Code:
program kawaler;
var
m,w,c,t,i,r,k,mm,jm,p:integer;

begin

writeln('jak duza milosc od 0 do 10');
readln (m);

writeln('jaki wyglad od 0 do 10');
readln (w);
writeln('jaki charakter od 0 do 10');
readln (c);
writeln('jaki temperament od 0 do 10');
readln (t);     
writeln('jaki inteligentny od 0 do 10');
readln (i);
writeln('jaka rodzina od 0 do 10');
readln (r);
writeln('co na to kolezanki od 0 do 10');
readln (k);     
writeln('co na to moja mama od 0 do 10');
readln (mm);
writeln('co na to jego mama od 0 do 10');
readln (jm);
p:=m+w+c+t+r+k+mm+jm;
if p<50 then writeln ('masakra');
if (p>=50) and (p<65) then writeln ('Sie zobaczy');
if p>=65  then writeln ('Wow');
writeln (p);
readln();end.          
          
          
Comments: