Санкт-Петербургский  Государственный Университет 

Низкотемпературных  и Пищевых Технологий 
 
 
 
 
 
 
 
 
 
 

Лабораторная  работа № 2

«Ознакомление с алгоритмическим  языком Паскаль» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

      Выполнил: Дорогин  В.А.

      Проверил: Круглов  А. А. 
 
 
 
 
 
 
 
 
 
 

2004 г. 
 
 
 

Program x;

var v:real;

D:real;

S:real;

n:integer;

z,a,b:integer;

procedure  Rasch_n(a1:integer; b1:integer; var n1:integer);

begin

n1:=a1*b1;

writeln ('n1= ',n1);

end;

begin

write ('введите  D= ,S= ,z= ,a= ,b= ');

readln (d,s,z,a,b);

rasch_n (a,b,n);

v:=pi*d*d*s*n*z/4;

writeln ('теоретический  объем v=',v:3:4);

end.