Var a, b, c, s: real;
begin
write('Введите a, b >>');
readln(a, b);
c:=sqrt(sqr(a)+sqr(b));
writeln('c = ', c);
s:=a*b/2;
writeln('s = ', s);
<span>end.</span>
Добавлять, удалять, вносить данные, удалять данные, редактировать (изменять содержимое), форматировать (изменять внешний вид)
//алг цифры;
var N,k:integer; // цел N,K
begin // Нач
Read(N); // ввод (N);
k:=0; // k:=0
while N>=1 do // Пока N>=1
begin // нц
N:=N div 10; // N:=N div 10;
k:=k+1; // k:=k+1
end; // kц
Writeln(k) // Вывод k
end. // кон