Задача по Delphi

[SVing]

Площадь основания и объем цилиндра
с радиусом основания r и высотой h
S = пи* r в квадрате ; V = Sh

Помогите пожалуйсто. Вообще не шарю.

[Stilet]

Пожалуйста:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var  r,h:double;
begin
 r:=0;h:=0;write(r*h*3.14:5:2);readln;
end.

[Serge_Bliznykov]

Stilet, лучше использовать константу Pi:

 r:=0;h:=0;write(r*h*Pi:5:2);readln;

[Stilet]

Таки модуль подключать не хотелось. Это же, представь, аж 4 буквы писать - жесть

[SVing]

Спасибо большое. Опробую

[Mad_Cat]

пробуй)
только

write(r*r*h*3.14:5:2);

аж 4 буквы писать - жесть

еще и ',' надо было бы

[Serge_Bliznykov]

Таки модуль подключать не хотелось. Это же, представь, аж 4 буквы писать - жесть

ничего подключать НЕ НАДО. просто пишите Pi и всё будет хорошо!

program Project3;
{$APPTYPE CONSOLE}
begin
  WriteLn(Pi:1:16);
  Readln
end.