// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Введите текст:');
Writeln('Слова, в которых совпадают первая и последняя буквы:');
s.ToWords.Where(x->x[1]=x[x.Length]).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
Введите текст: космос азбука баобаб импульс озеро довод конец
Слова, в которых совпадают первая и последняя буквы:
азбука
баобаб
озеро
довод
Var a,b,c,d,max:integer;
begin
read(a);
max:=a;
read(b);
if b>max then
max:=b;
read(c);
if c>max then
max:=c;
read(d);
if d>max then
max:=d;
writeln(max);
<span>end.</span>
program chizla;
var k,x,i,a:integer;
begin
x:=0;
k:=0;
writeln ('Введите числа');
for i:=1 to 10 do
begin
readln(a);
if a<0 then
k:=k+1;
if a>0 then
x:=x+1;
end;
writeln('Положительных ',x,' Отрицательных ',k);
end.
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.