Решить в 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$ проверку условия можно бы в одной строке сделать, но уж больно длинная получается. поэтому разбил на две. если хочешь, объедини.

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

может кто перепишет на паскаль

вот на c:

 

#include < stdio.h> int main(void){  int km, day;   day = 1;   km = 10;   while (km < = 200)  {  if (km == 20)  {    printf("20km in %d day\n", day);     }     km += km / 10;   day++;   }  printf("< 200km in %d day", day);   printf("\n");   system("pause");   return 0; }