Website and domain for sale: mail@discussmain.com

3 different lines of symbols are given. To define the longest line and to give its length on the screen. Pascal.

206
Program n1; var s, s1, s2: string; function max (a, b, c: integer): integer; begin max: = 0; if (a> b) and (a> c) then max: = else if (b> c) and (b> a) then max: = b else if (c> a) and (c> b) then max: = c; end; begin readln (s); readln (s1); readln (s2); write (max (length(s), length (s1), length (s2))); end.
233
Answer add