Спаскаля найти самую короткую строку в файле и вывести её на экран. если таких строк несколько, то последнюю из них.

Program proga; var   p: text;       i, n : byte;         s,min,m: string;         begin                            write('введите имя файла   ');   {например: c: .txt}                             read(m); assign(p,m);           reset(p);     read(p,s);   min: =s;       n: =100;       for i: =1 to n do      begin      readln(p,s);                                         while not eof(p) do     {нахождение минимальной строки}            begin            readln(p,s);             if length(s) < = length(min) then            min: =s;             end;               end; close(p);       write('самая короткая строка: ',min); end.

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.