Uses crt;
const
n=50;
var
a:array[1..n] of integer;
i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=150+random(50);
if a[i]>=170 then s:=s+1
end;
writeln(s);
end.
открыть,изменит,создать,переименовать,копировать,создать ярлык,закрыть,свернуть,отправить,вырезать,удалить,свойства
Uses crt;
var i,n:integer;
begin
readln(n);
for i:=1 to 9 do
writeln(i,'x',n,'=',i*n);
end.