Составить блок-схему: из двух чисел, вводимых с клавиатуры, вывести на экран квадрат меньшего из них

K              s 6               10 7               10+10=20 8               20+10=30 9               30+10=40 10             40+10=50 11             50+10=60 12             60+10= 70 цикл закончился. программа выдаст 70

//pascalabc.net 3.0, сборка 1066 const   lett=['a'..'z']; var   s: string;   f: array['a'..'z'] of byte;   i: integer;   c: char; begin   for c: ='a' to 'z' do f[c]: =0;   write('введите строку: '); readln(s);   for i: =1 to length(s) do       if s[i] in lett then inc(f[s[i]]);   for c: ='a' to 'z' do       if f[c]> 1 then write(c,' ');   writeln end. тестовое решение: введите строку: the quick brown fox jumps over the lazy dog e h o r u