uses Crt;

const
  n=30;

type
  tA=array[1..n] of integer;
  tS=array[1..n] of string[30];
 
var
  i:integer;
  p,c:tA;
  s:tS;

begin
  ClrScr;
  for i:=1 to n do begin
    Write('Марка автомобиля ',i,': ');
    Readln(s[i]);
    Write('его мощность (л.с.) и стоимость (руб.); ');
    Readln(p[i],c[i])
    end;
  Writeln;  
  Writeln('Автомобили мощностью не более 80 л.с.');
  for i:=1 to n do
    if p[i]<=80 then Writeln(s[i]:30,p[i]:10,c[i]:10);
  ReadKey;
end.