Ну, скорее всего, человек может создавать и исполнять алгоритм
Program s;
var a,b:integer;
begin
readln(a);
if(a < 0 )then a:= a * 100
else a:= a + 100;
writeln(a);
readln;
end.
Хз
рплопрлрампнргпмрмаом лбг амнщг7н6акмр оьтгн 6аг7кмтоьогн67вщ щд67вс6щ7влщо
Program qwer;
uses crt;
var s, r, d, l: real;
Begin
write('Площадь круга: ');
readln(s);
r := sqrt(s / 3.14);
d := r * 2;l := 2 * 3.14 * r;
writeln('Диаметр: ',d);
writeln('Длина окружности: ',l);
<span>End.</span>