Elementāra programma

4. Programmas pirmteksts
{ Laboratijas darbs #2 Formulas apreekinu programma }

Program Rinka_linijas_garums_un_laukums;
Var
R,C,S:real;
Const
Pi=3.14157;
Begin
Writeln(’ievadiet radiusu R’);
Read(R);
S:=Pi*R*R;
Writeln(’laukums ir’,S);
C:=2*Pi*R;
Writeln(’rinka linijas garums’,C);
End.…