var
i, count: integer
i := 1;
count := 0;
repeat
String stroka;
readln(stroka);
if(length(stroka)<3)
count := count+1;
i:=i+1
Until(i=8);
Выводишь на экран
Цикл оформляй через for, я просто забыл синтаксис этого цикла.
Проблема в описании переменной s. Функция sqrt дает вещественный результат, поэтому тип s должен быть вещественный (и для p лучше вещественный):
Var a,b,c:integer;
p, s:real;
Begin
Readln(a,b,c);
p:= (a+b+c)/2;
S:= sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.
Кек это присмешка
это как лол, что то типо очень смешно (смеюсь).
<span>Кек и лол одно и тоже
</span>
///Pascal ABC.NET.
Program zadacha_alg;
Var x, y, z: integer;
begin
x:= 5;
y:= -6;
If x>y then z:= x+y else z:= y-x;
WriteLn ('z=',z);
end.
2)var a, b:integer;
begin
writeln('Введите 2 числа');
readln(a, b);
if a<b then writeln('min=', a)
else writeln('min=', b);
readln;
end.