Решите ну ктонибуть уже устал ждатьНаписать програму на языке паскаля…

Проверено в турбопаскаль 7var ost,n: longint; i,kvadrat, udvsumma: integer; numbers: array[1… 10] of integer; beginwriteln ('-'); write ('input n: '); readln (n); writeln ('vi vveli: ',n); ost: =n; i: =0; while (ost>0) dobegin i: =i+1; numbers[i]: =ost mod 10; ost: =ost div 10; end; if (i<3) thenbeginwriteln ('Obman! Nado vvesti minimum 3 znaka chislo'); endelsebeginkvadrat: =numbers[i]*numbers[i]; udvsumma: =2*(numbers[1]+numbers[2]); writeln ('kvadrat pervogo=', kvadrat); writeln ('udvoennaya summa poslednih=', udvsumma); if (udvsumma