program p;
var p, a, b: integer;
uses crt;
begin
clrscr;
writeln('введи первую переменную');
readln(a);
writeln('введи вторую переменную');
readln(b);
if (a> =7) and (b< =52)
then writeln(' ', ((3*a)-(2*b))/7)
else writeln('что-то не так')
end.
program p;
var p, a, b: integer;
uses crt;
begin
clrscr;
writeln('введи первую переменную');
readln(a);
writeln('введи вторую переменную');
readln(b);
if (a> =7) and (b< =52)
then writeln(' ', ((3*a)-(2*b))/7)
else writeln('что-то не так')
end.