Какой Фараон правил в восемнадцатом веке до нашей эры

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол

(1*2**5)-6-7=1

var x,y: integer;

begin

  read(x,y);

  if (x> 0) and (y> 0) then writeln("i");

  if (x> 0) and (y< 0) then writeln("iv");

  if (x< 0) and (y> 0) then writeln("ii");

  if (x< 0) and (y< 0) then writeln("iii");

end.

begin   //начало программы

var nk, nt, ck ,ct, s: integer   // переменных типа действительные числа;

writeln('введите количество карандашей'); //вывести на экран надпись

readln(nk);   // запись ответа пользователя в переменную nk

writeln('введите количество тетрадей'); //вывод на экран надписи

readln(nt); // запись ответа пользователя

writeln('введите стоимость 1 карандаша');   // вывод на экран надписи

readln(ck); // запись ответа пользователя в переменную

writeln('введите стоимость 1 тетради');

readln(ct);

s: =(nk*ck)+(nt*ct); // вычисление стоимости покупки

writeln('стоимость покупки: ',s);   // вывод стоимости покупки на экран

end.   // конец программы

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

(nk-количество карандашей, nt-количество тетрадей)