поскидывайте коды игр в pascal abc!

program ex1;
var R,s,l:real;
begin
Writeln (' введите R ');
Read (R);
S:=r*sqr(Pi);
L:=2*Pi*r;
writeln('L=',l);
end.

вычисляет площадь и длинну окружности зная радиус.

program sila_toka;
var I,U,R:real;
begin
Writeln ('введите напряжение');
Read (U);
Writeln ('введите сопративление');
Read (R);
I:=U/R;
writeln('I=',i);
end.