Решить в qbasic даны 2 конверта прямоугольной формы с длинами сторон a, b и c, d.определить, можно ли положить один конверт в другой

Input "a="; a input "b="; b input "c="; c input "d="; d if (a < = c and b < = d) or (a < = d and b < = c) then s$ = "yes" if (a > = c and b > = d) or (a > = d and b > = c) then s$ = "yes" if s$ < > "yes" then s$ = "no" print s$ проверку условия можно бы в одной строке сделать, но уж больно длинная получается. поэтому разбил на две. если хочешь, объедини.

имхо так:

 

program solution; uses crt; var sec, num, n1, i : longint; beginclrscr; readln(sec); num : = 1; n1 : = 0; repeat              for i : = 1 to num do                              begin                              write(num, ' ');                               n1 : = n1 + 1;                               if n1 > = sec then break;                               end;               num : = num + 1; until n1 > = sec; end.

1.

var

a, b, s: real;

begin

s: =0;

writeln('введите величины: ');

readln(a,b);

s: =a*b;

write('площадь = ', s);

end.

2.

var

k, t, sum: real;

ck, ct: integer;

begin

sum: =0;

writeln('введите количество тетрадей: ');

readln(ct);

writeln('введите количество карандашей: ');

readln(ck);

writeln('укажите цену одной тетради: ');

readln(t);

writeln('укажите цену одного карандаша: ');

readln(k);

sum: =ct*t+ck*k;

writeln('суммарная стоимость покупки: ', sum);

end.