Var a,b,n,s,sr,sk:integer;
begin
readln(a,b,n)
s:=a*100+b;
sr:=s*n div 100;
sk:=s*n mod 100;
writeln(sr,' ',sk);
end.
Пример:
3 35 7
23 45
1 байт = 8 бит
8 бит - 2^8 = 256 цветов.
Даааааааааааааааааааааааааааааа
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
В общем, проверь ссылки ярлыков (точно ли ведут на нужные программы) и наличие необходимого (.NET, DirectX (хотя не вижу связь, но не повредит)), ну и, конечно, систему антивирем (Kaspersky Virus Removal Tool самое оно)