Составить алгоритм и программу для вычесления площади круга,если задан его радиус.(s=3,14*r*r).

Алгоритм напишу словами
начало
ввод R
S:=3,14*R*R
вывод S
конец
Программа
program Squre;
uses crt;
var S, R:real;
begin
clrscr;
writeln('Enter R:');
readln(R);
S:=3.14*R*R;
writeln('S=',S:2:2);
readln;
end.