Excel составить таблицу для вычисления количества лифтов в доме в зависимости от количества этажей. количество этажей — случайное целое число в интервале от 1 до 30. количество лифтов: менее 6 этажей – лифта нет; от 6 до 10 этажей – 1 лифт; от 11 до 18 этажей – 2 лифта; от 19 до 30 этажей – 4 лифта.

program fraza;

var x,y: string;

begin

writeln('введите название животного: ');

readln(x);

writeln('введите число');

readln(y);

writeln(x, " съест ", y, ' грибов.');

end.

program primer_(число); var (буквы): real или integer;   beginwriteln ('введите что-то'); read (буква); буква: =вычисления; write ('значение выражения=',   буква); end.

p.s. только смотри на знаки, которые я расставила. 

var a,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1: =0;

  w2: =0;

  w3: =0;

  l: =a mod 10;

  while a> 0 do

  begin

      if a mod 10=c then w1: =w1+1;

        if a mod 10=l then w2: =w2+1;

        if a mod 2=0 then w3: =w3+1;

        a: =a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.