fork download
copy 
  1. Program Mhdd;
  2. Var
  3. 	g : Array [1..5] of string;
  4. 	i,min : Integer;
  5. begin
  6. 	min:=1;
  7. 	for i:= 1 to 5 do
  8. 		begin
  9. 			writeln('ievadiet vardu');
  10. 			readln(g[i]);
  11. 			if (length(g[i]) <= length(g[min])) then
  12. 				min := i;
  13. 		end;
  14. 	Writeln('Vards, atrod isako vardu : ', g[min]);
  15. 	Readln;
  16. End.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
aa
aaaaaa
aaa
a
aaaaa
stdout
copy 
ievadiet vardu
ievadiet vardu
ievadiet vardu
ievadiet vardu
ievadiet vardu
Vards, atrod isako vardu : a
https://ideone.com/xKD3di
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!