Program p1; var a,b,c,d:integer; begin writeln('Введите первое число');readln(a); writeln('Введите второе число');readln(b); writeln('Введите третье число');readln(c); if(a>7) then d:=d+1; if(b>7) then d:=d+1; if(c>7) then d:=d+1; writeln('К-во чисел > 7: ',d); end.
var a,b,c,d:integer;
begin
writeln('Введите первое число');readln(a);
writeln('Введите второе число');readln(b);
writeln('Введите третье число');readln(c);
if(a>7) then d:=d+1;
if(b>7) then d:=d+1;
if(c>7) then d:=d+1;
writeln('К-во чисел > 7: ',d);
end.