Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
Var a:string; i,d:integer;
Begin
Readln (a);
d:=length (a);
For i:=1 to d do
If a[i]='A' then a[i]:='B';
Writeln (a);
end.
̶к̶р̶а̶с̶н̶о̶м̶ Peugeot
серой ̶A̶u̶d̶i̶
некрасной F̶o̶r̶d̶
Ответ:серой, некрасной peugeot.
M = E/gh - формула для массы тела
Pascal:
program Main;
uses crt;
var a,b: integer;
begin
readln(a,b);
If(a>b) then writeln(b);
else writeln(a);
end.
C++:
#include <iostream>
int main() {
int a,b;
std::cin >> a >> b;
if(a >b) std::cout << b;
else std::cout << a;
system("pause");
return 0;
}