Правильный ответ под буквой D
var p:integer;
begin
readln (p);
if (p=2)then writeln ('-1') else
writeln ((p*p-1)/2+1);
end.
1)2010211
2)1109900009
3)989219,791208
4)10111212111
MMMDXLVII
MMDCXC
MCDLVII
MMDCXCVII
MMMDCCLXI
MMMMDCCLXXXIX
MMMMMMMDCLIII
MMMMMMMMDXLVI
var
a : integer;
begin
repeat
write('введите двузначное число ');
readln(a);
if (a < 100) and (a > 9) then Writeln(a div 10, ' ', a mod 10);
until (a < 100) and (a > 9);
end.