Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- begin
- writeln('ivesk');
- readln(sk);
- if sk>0 then
- begin
- if sk>9 then
- begin
- if sk>99
- begin
- i
- writeln ('teigiamas trizenklis');
- end
- else begin
- writeln ('teigiamas dvizenklis');
- end
- end
- else begin
- writeln ('teigiamas vienzenklis');
- end
- end
- else begin
- if sk<-9 then
- begin
- if sk<-99
- begin
- i
- writeln ('neigiamas trizenklis');
- end
- else begin
- writeln ('neigiamas dvizenklis');
- end
- end
- else begin
- writeln ('neigiamas vienzenklis');
- end
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement