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.
а это надо с фотографией