нарисовать паровоз в паскале

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

var a,res: integer;

begin

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

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

самым первым электронным программируемым компьютером был 1500 ламповый "коллос", который был  создан 1943 году, профессором максом ньюменом в великобритании. он предназначался для расшифровки кодов шифровальной машины "энигма". те работы на которые у механических дешифраторов уходили дни, "колосс" выполнял за несколько часов. информация о нем была под грифом совершенно секретно практически до конца 20 века.