Как в ячейки ЭТ будут записаны следующие числа?

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

крестьянин   должен   переправить   волка   и   капусту с   собой.а   козу   надо   кинуть

  на   другой   берег.