Как нужно обращятся с компом ?
Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.
Program s_i_p;
var a,b,s,p:real;
begin
writeln('введите значение двух сторон');
readln(a,b);
s:=a*b;
p:=(a+b)*2;
writeln('площадь ',s,' периметр ',p);
end.
var
a, b, c: real;
begin
Write('Введите первую стороны => ');
readLn(a, b, c);
writeln('Периметр треугольника равен ', a + b + c);
end.