tanechkamaksim1

28.05.2020 16:57 •  Информатика

Паскальесть код и нужно сделать так, что если число не подходит по условию, то пример не решался.

program hdbbdsbkqqq3;
var a, b, c,x,y: integer;
uses crt;
begin
clrscr;
writeln('мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. подсчитай стоимость всей покупки.');
writeln('введи а и b, чтобы подходило по условию ');
readln(a,b);
if a=3 then writeln('подходит');
if a=4 then writeln('подходит');
if a=5 then writeln('подходит');
if a=6 then writeln('подходит');
if a=7 then writeln('подходит');
if a=8 then writeln('подходит');
if a=9 then writeln('подходит');
x: =a*100;
y: =b*50;
c: =x+y;
writeln(x);
writeln(y);
writeln(c);
if b=3 then writeln('подходит');
if b=4 then writeln('подходит');
if b=5 then writeln('подходит');
if b=6 then writeln('подходит');
if b=7 then writeln('подходит');
if b=8 then writeln('подходит');
if b=9 then writeln('подходит');
if a> 10 then writeln('не подходит');
if a< 3 then writeln('не подходит');
if b> 10 then writeln('не подходит');
if b< 3 then writeln('не подходит');
end.