По правому краю в комірці вирівнюють:а)формули б)числа в)текст

иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

954-459=495

все условия соблюдены

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.