Program name;
var a,b,s:real;
begin
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln(s);
end.
Program primer;
Var
i:integer;
begin
i:=-4;
repeat
writeln(i,' ',3*i);
i:=i+2;
until i>4;
end.
Зайдите в параметры печатания.И обычный размер убрав,добавьте новый.
Program spinogryz21;
var
x, i: integer;
yes: boolean;
begin
yes := FALSE;
write('Введите число Х ');
readln(x);
for i := 1 to 4 do
begin
if (x mod 10) = 6 then yes := TRUE;
x:=x div 10;
end;
if yes then writeln('6 входит в число Х')
else writeln('6 не входит в число Х');
end.