Составить три задачки на языке программирования Паскаль.

Бут уже профи

ото еше рак ты

ты
1. 
Program TuKpa6;varx,b:integer;BEGIN  writeln('BBegu b u x');   readln(b);  readln(x);  writeln('npoJleTuT ',b*x,' kuJloMeTpoB 3a ',x,' 4acoB');END.

2. 
Program TuKpa6;varx:integer;BEGIN  writeln('BBeguTe rog');  readln(x);  if x mod 4 = 0 then    begin      writeln('rog BucokocHbiII kek');      end  else     begin      writeln('rog HeBucokocHbiII');    end;END.

3.
Program TuKpa6;varx:integer;BEGIN  writeln('BBeguTe 4ucJlo');  readln(x);  if xlt;=12 then    begin      writeln('3aga4a');    end  else      begin        writeln('y=',38*x-8);      end;END.