Паскаль введите с клавиатуры 6 чисел и выведите на экран их кубы. решить нужно в pascal.

а это надо с фотографией

program z1;

var o1,o2,o3:integer;

sr:real;

begin

repeat

write ('Введите 1 оценку ');

read (o1);

if (o1<2) or (o1>5) then writeln ('Ошибка')

until (o1>1) and (o1<6);

repeat

write ('Введите 2 оценку ');

read (o2);

if (o2<2) or (o2>5) then writeln ('Ошибка')

until (o2>1) and (o2<6);

repeat

write ('Введите 3 оценку ');

read (o3);

if (o3<2) or (o3>5) then writeln ('Ошибка')

until (o3>1) and (o3<6);

sr:=(o1+o2+o3)/3;

if sr<2.5 then writeln('Петя, ты двоечник по информатике')

else

if sr>4.5 then writeln('Петя, ты отличник по информатике')

else

if (sr>=2.5) and (sr<=3.4) then writeln('Петя, ты троечник по информатике')

else writeln('Петя, ты ударник по информатике')

end.

 

Program Polik1907;
uses crt;
Var
  tur:real;
  mes:integer;
begin
  writeln('');
  writeln('*    Мы рады приветствовать вас       *');
  writeln('*         в нашем турагентстве        *');
  writeln('*         P O L I K   1 9 0 7         *');
  writeln('*               ! ! !                 *');
  writeln('');
  writeln();
  writeln('Введите базовую стоимость путёвки: ');
  readln(tur);
  writeln('month Введите номер месяца: ');
  readln(mes);
  case mes of
    1,5,10: writeln('Стоимость вашей путёвки составит ',tur,'  рублей');
    6,7,8,9:  writeln('Стоимость вашей путёвки составит ',tur*1.2,'  рублей');
    2,3,4,11,12:  writeln('Стоимость вашей путёвки составит ',tur*0.8,'  рублей');
    else writeln('Введите правильный номер месяца');
  end;
end.