Var g,t:integer;
s:real;
begin
g:=10;
writeln('Время падения в секундах равно ');
read(t);
while t<>0 do
begin
s:=(g*sqr(t))/2;
writeln('Высота колодца равна ',s,' метров.');
writeln('Время падения в секундах равно ');
read(t);
end;
end.<span>
</span>
Смотри во вложенном pdf-документе.
Ворд это универсальная штука при помощи нее мы можем даже создавать рисунки и редактировать текст, распечатывать раздичные рисунки и набраный текст созранение там очень простое,жмещь сохрнатить , и указываещь путь.ПРости за опечатки
Var
a: string;
b: char;
i, k: integer;
begin
readln(a);
readln(b);
for i := 1 to length(a) do
if a[i] = b then
k := k + 1;
writeln(k);
end.