Миша любит получать подарки на Новый год. Согласно его подсчетам до праздника X часов и Y минут. Определите сколько минут осталось ждать Мише. Помните, что для считывания данных нужно вызывать функцию write без аргументов!

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

рождения 30.05.95

300

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед

поправьте меня если ^ это не указатель стпени, но если это степень то вот просто:

var a,x: extended; n,i: longint; begin    read(x);     read(n);     a: =1;     for i: =1 to n do        a: =a*x;     writeln(a: 0: 0); end.