1)защита от неверного ввода (>10) 2) написать программу которая выводит квадраты первых 7 целых чисел в обратном порядке
3) написать программу которая выводит таблицу умножения на 1 число
все это в Паскале​

Var used: set of char;       s1, s2: string;       i: integer;       done: boolean;       c: char; function isletter(c: char): boolean; begin   isletter : = ((c > = 'a') and (c < = 'z')) or ((c > = 'a') and (c < = 'z')); end; function uppercase(c: char): char; begin   if (c > = 'a') and (c < = 'z') then       uppercase : = chr(ord(c) - ord('a') + ord('a'))   else       uppercase : = c; end; begin used : = []; readln(s1); readln(s2); for i : = 1 to length(s1) do   if (isletter(s1[i])) then       include(used, uppercase(s1[i])); for i : = 1 to length(s2) do   if (isletter(s2[i])) then       include(used, uppercase(s2[i])); done : = false; for c : = 'a' to 'z' do   if not (c in used) then   begin       done : = true;       write(c);   end; if not done then   write(0); writeln; end.