Задача 1)
var a: real;
begin
writeln('Вычислите выражение 12*6 - 13*3');
readln(a);
if a=33 then writeln('Правильно') else writeln('Ошибка в расчётах');
end.
Задача 2)
var a: real;
begin
writeln('Сколько вам лет?');
readln(a);
if a<14 then writeln('Вы ещё не получили паспорт!') else writeln('Паспорт вами получен!');
end.
Задача 3)
program pocupka;
var a: string;
begin
writeln('Какое мороженное вы хотите купить эскимо, фруктовый лёд или пломбир?');
readln(a);
if a='эскимо' then writeln('50 рублей');
if a='фруктовый лёд' then writeln('30 рублей');
if a='пломбир' then writeln('48 рублей');
end.
Объяснение:
