//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.
Код и результат выполнения на скриншотах.
Если я правильно понял условие, то...
var a,b,c:integer;
integer;
begin
readln(a,b,c);
If (a+b<100) or (a+c<100) or (b+c<100) then
writeln(1)
else
writeln(0)
<span>end.</span>
Если я правильно понял и на 1 рисунке "мыло", то убираем две последние буквы слова, оставляем "мы", 2 слово "кошка" убираем первые две буквы, остается "шка"
"мы"+"шка"="мышка"