Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
08 ariketa
//fpc 3.0.0 program HelloWorld; var a:string; b:string; z1:integer; z2:integer; begin writeln('Idatzi bi izen'); readln(a); readln(b); z1:=length(a); z2:=length(b); if (z1>z2) then begin writeln(a,' luzeagoa da ',b,' baino'); end else if (z1=z2) then begin writeln(a,' eta ', b,' luzeera bera dute'); end else begin writeln(b,' luzeagoa da ',a,' baino'); end end.
run
|
edit
|
history
|
help
0
LewisCableCompanyPasProgramme
Unicorn
VIGENERECIJFER
test27
Complemento da VS ICC II - 1º Semestre 2017
Prova 1
Huong11a2@
sumar 2 valores
Letícia
test27