Pascal - Pyetje provimi për pascal

[qoska]

Slack nje njeri qe ben pyetje per algoritme(nqs mund ti quajme keshtu) ne nivele kaq fillestare nuk e ben kete dallim.
Sepse nuk do kerkonte kodin por algoritmin!

[Slack]

Jam shume dakort dakort me ty. Te them te drejten nuk me shkoi mendja ke te qenet fillestar!! Por sintaksa eshte mjaft e thjeshte per tu kuptuar apo jo? Perderisa personi ka thene "faleminderit" besoj se ajo c'ka eshte paraqitur i ka hyre ne pune . Megjithate Justin ka harxhuar pak kohe edhe ka ndertuar dicka konkrete per te ndihmuar. Veprat flasin me shume se fjalet edhe argumentat ..... .

Slack

[Ter-minator]

1-Te ndertohet nje program i cili pasi te lexoje nje numer te plote (jo me shume se tre shifra) nga tastjera te shkruaje ne ekran sa shifra ka numri dhe
2-cilat jane ato.

Pjesa e pare e programit eshte e thjeshte kurse e dyta me duket me e thelle.
Programi eshte ne Pascal.

Program Lexo_afisho;
var n,a1,a2,a3:integer;
begin
readln (n);
if n<10 then writeln('Numri ka nje shifer');a1:=n; a2:=' '; a3:=' ';writeln('shifra eshte ',a1);
if 10<=n<100 then writeln('Numri ka dy shifra');a1=n div 10; a2=n mod 10;writeln('Shifrat jane ',a1,a2);
if 100<=n<1000 then writeln('Numri ka tre shifra');a1=n div 100; a3=n mod 10; a2=((n div 10)-a3)/10;writeln('Shifrat jane ',a1,a2,a3);
end.

Po keto ushtrime ishin dhe ne olimpiaden e informatikes ne nivel shkollor.Diku kam gabuar.