, очень . Разведчики-математики для того, чтобы опознать своих, используют числовые пароли. Услышав число-пароль, разведчик должен возвести его в квадрат и сказать в ответ первую цифры дробной части полученного числа. Напишите программу, которая по полученному паролю (вещественному числу) вычисляет число- ответ.
Язык програмирования-питон​

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

нельзя, ведь текст отсканирован а не скопирован!

a-возраст cаши

b– возраст маши

program r;

var a,b: integer;

begin

readln(a,b);

if a=b then writeln («ровесники»)else writeln( «неровесники»)

end.